home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / rgbtech.arc / OKI-DLCG.BAS < prev    next >
BASIC Source File  |  1986-11-22  |  7KB  |  204 lines
  1. 10 REM OKI-DLCG: ALTERNATE CHARACTER SET LOADER FOR OKIDATA PRINTERS
  2. 20 REM           A FASTER, COMPILED VERSION IS SUPPLIED AS OKI-DLCG.EXE
  3. 30 ON ERROR GOTO 130
  4. 40 PRINT "Loading Alternate Character Set to Printer"
  5. 50 DEFINT A-Z
  6. 60 WIDTH "LPT1:",255
  7. 70 FOR N=1 TO 94       'SET THIS RANGE TO EQUAL THE NUMBER OF SYMBOLS DEFINED
  8. 80 READ Q$: LPRINT CHR$(27);Q$;
  9. 90 READ Q$: IF Q$="?" THEN READ Q: Q$=CHR$(Q)  'NONSTANDARD CHARACTERS
  10. 95 LPRINT Q$;
  11. 100 FOR I=1 TO 11: READ Q: LPRINT CHR$(Q);: NEXT I   'EVERY LINE HAS 11 VALUES
  12. 110 NEXT N
  13. 120 SYSTEM: END
  14. 130 PRINT "PRINTER IS NOT TURNED ON. LOADING ABORTED.": SYSTEM: END
  15. 200 REM script l
  16. 205 DATA %A,&,0,64,64,47,17,47,64,64,32,16,0
  17. 210 REM sm sigma
  18. 215 DATA %A,s,0,60,66,66,66,66,68,60,4,2,0
  19. 220 REM sm rho
  20. 225 DATA %D,r,0,64,0,64,62,0,17,0,17,10,4
  21. 230 REM cap omega
  22. 235 DATA %A,W,64,76,82,97,1,1,1,97,82,76,64
  23. 240 REM sm omega
  24. 245 DATA %A,w,0,48,72,68,64,48,64,68,72,48,0
  25. 250 REM sm xi
  26. 255 DATA %A,x,0,8,22,21,21,21,17,81,81,33,0
  27. 260 REM small theta
  28. 265 DATA %A,j,0,28,42,73,73,73,73,73,42,28,0
  29. 270 REM dot
  30. 275 DATA %A,*,0,0,0,0,12,12,12,0,0,0,0
  31. 280 REM sm del
  32. 285 DATA %A,@,0,50,73,73,73,73,73,73,50,28,0
  33. 290 REM cap del
  34. 295 DATA %A,^,2,6,10,18,34,66,34,18,10,6,2
  35. 300 REM cap delta
  36. 305 DATA %A,D,64,96,80,72,68,66,68,72,80,96,64
  37. 310 REM sm pi
  38. 315 DATA %A,p,0,8,4,124,4,4,4,124,4,2,0
  39. 320 REM square
  40. 325 DATA %A,#,0,127,0,65,0,65,0,65,0,127,0
  41. 330 REM sm mu
  42. 335 DATA %D,m,64,48,8,15,16,16,24,14,17,16,0
  43. 340 REM Angstrom
  44. 345 DATA %A,A,96,16,32,11,32,11,32,16,96,0,0
  45. 350 REM sm tau
  46. 355 DATA %A,t,8,0,4,0,4,56,68,0,68,0,2
  47. 360 REM sm epsilon
  48. 365 DATA %A,e,0,0,56,0,84,0,84,0,68,0,0
  49. 370 REM plus-or-minus
  50. 375 DATA %A,+,0,68,0,68,0,95,0,68,0,68,0
  51. 380 REM sm lambda
  52. 385 DATA %A,l,1,0,66,32,20,8,16,32,0,64,0
  53. 390 REM sm psi
  54. 395 DATA %A,y,2,0,2,4,8,0,127,0,8,4,3
  55. 400 REM sm phi
  56. 405 DATA %A,o,8,20,0,20,0,127,0,20,0,20,8
  57. 410 REM cap phi
  58. 415 DATA %A,O,8,20,0,85,0,127,0,85,0,20,8
  59. 420 REM sm delta
  60. 425 DATA %A,d,0,48,72,0,72,2,61,0,1,2,0
  61. 430 REM sm alpha
  62. 435 DATA %A,a,0,24,36,0,36,8,16,32,8,68,0
  63. 440 REM sm beta
  64. 445 DATA %D,b,0,126,1,20,1,20,1,20,10,0,0
  65. 450 REM integral center
  66. 455 DATA %A,!,0,0,0,0,0,127,0,0,0,0,0
  67. 460 REM integral top
  68. 465 DATA %A,(,0,0,0,0,0,126,1,2,1,2,0
  69. 470 REM integral bottom
  70. 475 DATA %A,),0,32,64,32,64,63,0,0,0,0,0
  71. 480 REM divisor line
  72. 485 DATA %A,-,8,0,8,0,8,0,8,0,8,0,8
  73. 490 REM script f
  74. 495 DATA %A,f,0,0,64,8,64,62,1,8,1,2,0
  75. 500 REM capital sigma
  76. 505 DATA %A,S,0,99,99,85,93,73,65,65,65,99,99
  77. 510 REM tilda
  78. 515 DATA %D,_,0,32,16,16,16,32,64,64,64,32,0
  79. 520 REM small gamma
  80. 525 DATA %A,g,0,0,0,49,74,4,74,49,0,0,0
  81. 530 REM capital gamma
  82. 535 DATA %A,G,0,127,1,1,1,1,1,1,1,3,0
  83. 540 REM infinity
  84. 545 DATA %A,I,16,40,0,40,0,16,0,40,0,40,16
  85. 550 REM small chi
  86. 555 DATA %A,c,1,0,65,34,20,8,20,34,65,0,0
  87. 560 REM small eta
  88. 565 DATA %D,h,0,0,1,30,0,2,0,2,60,64,0
  89. 570 REM small iota
  90. 575 DATA %A,i,0,0,0,4,0,124,0,64,0,0,0
  91. 580 REM small kappa
  92. 585 DATA %A,k,0,124,0,16,40,0,68,0,4,0,0
  93. 590 REM small nu
  94. 595 DATA %A,n,4,0,4,8,16,32,64,32,4,24,0
  95. 600 REM proportional
  96. 605 DATA %A,q,16,40,0,40,0,16,0,40,0,40,0
  97. 610 REM small upsilon
  98. 615 DATA %A,u,4,0,28,32,64,0,64,0,32,28,0
  99. 620 REM degrees
  100. 625 DATA %A,v,0,0,0,2,5,0,5,2,0,0,0
  101. 630 REM small zeta
  102. 635 DATA %A,z,0,56,5,32,3,32,1,32,64,32,0
  103. 640 REM upper-left curved bracket
  104. 645 DATA %A,1,0,0,0,0,0,124,2,0,1,0,0
  105. 650 REM left-center curved bracket
  106. 655 DATA %A,2,0,0,8,0,20,99,0,0,0,0,0
  107. 660 REM lower-left curved bracket
  108. 665 DATA %A,3,0,0,0,0,0,31,32,0,64,0,0
  109. 670 REM upper-right curved bracket
  110. 675 DATA %A,4,0,0,1,0,2,124,0,0,0,0,0
  111. 680 REM right-center curved bracket
  112. 685 DATA %A,5,0,0,0,0,0,99,20,0,8,0,0
  113. 690 REM lower-right curved bracket
  114. 695 DATA %A,6,0,0,64,0,32,31,0,0,0,0,0
  115. 700 REM upper-left bracket
  116. 705 DATA %A,7,0,0,0,0,0,127,0,1,0,1,0
  117. 710 REM lower-left bracket
  118. 715 DATA %A,8,0,0,0,0,0,127,0,64,0,64,0
  119. 720 REM upper-right bracket
  120. 725 DATA %A,9,0,1,0,1,0,127,0,0,0,0,0
  121. 730 REM lower-right bracket
  122. 735 DATA %A,0,0,64,0,64,0,127,0,0,0,0,0
  123. 740 REM implication
  124. 745 DATA %A,B,20,0,20,0,20,0,34,0,20,0,8
  125. 750 REM cross
  126. 755 DATA %A,C,0,34,0,20,0,8,0,20,0,34,0
  127. 760 REM square-root top left
  128. 765 DATA %D,F,0,0,0,0,0,126,0,2,0,2,0
  129. 770 REM square-root top right
  130. 775 DATA %A,H,0,8,0,8,0,120,0,0,0,0,0
  131. 780 REM cap theta
  132. 785 DATA %A,J,28,34,93,0,73,0,73,0,93,34,28
  133. 790 REM identical equality
  134. 795 DATA %A,=,0,42,0,42,0,42,0,42,0,42,0
  135. 800 REM cap lambda
  136. 805 DATA %A,L,64,0,96,24,6,1,6,24,96,0,64
  137. 810 REM less than or equal to
  138. 815 DATA %A,<,0,68,0,74,0,74,0,81,0,81,0
  139. 820 REM greater than or equal to
  140. 825 DATA %A,>,0,81,0,81,0,74,0,74,0,68,0
  141. 830 REM cap pi
  142. 835 DATA %A,P,0,1,0,127,0,1,0,127,0,1,0
  143. 840 REM bullet
  144. 845 DATA %A,Q,0,0,0,8,20,8,20,8,0,0,0
  145. 850 REM low carrat
  146. 855 DATA %D,?,34,0,64,0,32,0,16,0,32,0,64,0
  147. 860 REM therefore
  148. 865 DATA %A,T,0,0,64,0,0,8,0,0,64,0,0
  149. 870 REM cap upsilon
  150. 875 DATA %A,U,2,1,0,1,0,126,0,1,0,1,2
  151. 880 REM square-root bottom
  152. 885 DATA %A,V,16,0,16,32,0,127,0,0,0,0,0
  153. 890 REM cap chi
  154. 895 DATA %A,X,0,99,0,73,0,73,0,73,0,99,0
  155. 900 REM cap psi
  156. 905 DATA %A,Y,1,2,4,8,1,126,1,8,4,2,1
  157. 910 REM approximately equal
  158. 915 DATA %A,Z,0,20,2,16,2,16,4,16,4,18,0
  159. 920 REM not equal
  160. 925 DATA %A,E,0,20,0,52,0,28,0,22,0,20,0
  161. 930 REM division
  162. 935 DATA %A,?,58,0,8,0,8,0,42,0,8,0,8,0
  163. 940 REM closed-integral center
  164. 945 DATA %A,|,8,20,0,20,0,127,0,20,0,20,8
  165. 950 REM bracket center
  166. 955 DATA %A,$,0,0,0,0,0,127,0,0,0,0,0
  167. 960 REM slash zero
  168. 965 DATA %A,K,104,4,50,0,89,0,77,0,38,16,11
  169. 970 REM minutes of arc
  170. 975 DATA %A,M,0,0,0,0,0,0,4,2,1,0,0
  171. 980 REM seconds of arc
  172. 985 DATA %A,N,0,0,0,0,4,2,1,4,2,1,0
  173. 990 REM barred-R
  174. 995 DATA %A,R,1,0,127,0,1,126,1,16,33,10,68
  175. 1000 REM minus-or-plus
  176. 1005 DATA %A,%,0,0,17,0,17,125,17,0,17,0,0
  177. 1010 REM script zeta
  178. 1015 DATA %A,{,0,0,38,1,72,1,80,33,0,1,2
  179. 1020 REM summation top-right
  180. 1025 DATA %A,[,1,0,1,0,1,0,1,0,1,0,7
  181. 1030 REM summation bottom-right
  182. 1035 DATA %A,],64,0,64,0,64,0,64,0,64,0,112
  183. 1040 REM summation bottom-left
  184. 1045 DATA %A,/,0,0,0,0,64,32,80,8,68,2,65
  185. 1050 REM summation top-left
  186. 1055 DATA %A,\,0,0,0,0,1,2,5,8,17,32,65
  187. 1060 REM summation center
  188. 1065 DATA %A,},65,34,20,8,0,0,0,0,0,0,0
  189. 1070 REM script phi
  190. 1075 DATA %A,?,63,0,8,20,64,32,16,40,4,34,20,8
  191. 1080 REM roughly equal
  192. 1085 DATA %A,~,0,36,18,0,18,0,36,0,36,18,0
  193. 1090 REM parallel
  194. 1095 DATA %A,`,0,0,0,127,0,0,0,127,0,0,0
  195. 1100 REM dagger
  196. 1105 DATA %A,',0,0,0,4,0,127,0,4,0,0,0
  197. 1110 REM script epsilon
  198. 1115 DATA %A,;,0,0,0,40,84,0,84,0,68,0,0
  199. 1120 REM script omega
  200. 1125 DATA %A,?,44,4,0,20,40,68,32,16,32,68,40,16
  201. 1130 REM script nu
  202. 1135 DATA %A,?,46,8,0,56,64,0,68,42,16,10,4,8
  203. 
  204.